

import IO

--id, nome, rg, telefone
type Client = (Integer, String, String, String)
type Clients = [Client]

main = do x <- readFile "foo.txt"
	  y <- rList x 
	  writeFile "foo.txt" ( show ([(25,"mOURA","8998943","9767-32434")]++y))



rList :: String -> IO Clients	  
rList s = readIO s 

write :: IO()
write = writeFile "foo.txt" aaa



aaa = "[(25,\"mOURA\",\"8998943\",\"9767-32434\")]"



